home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmCT_106_ModalOneShot < prev    next >
Encoding:
Text File  |  1990-03-23  |  1.3 KB  |  62 lines
  1. /* %filename% -- Modal one-shot dialog */
  2. /* Created %date% %time% by AppMaker */
  3.  
  4. #include "ResourceDefs.h"
  5. #include "DialogAids.h"
  6.  
  7. #include "%unitname%.h"
  8.  
  9. #define NULL        0L
  10.  
  11. %for each item gen itemNr%
  12.  
  13. %for each item gen auxiliary%
  14. %if needsFilter%
  15.     /*----------*/
  16.     static pascal Boolean Filter%dlogname%    (DialogPtr        whichDialog,
  17.                                  EventRecord    *event,
  18.                                  short            *itemHit);
  19.     pascal Boolean Filter%dlogname% (whichDialog, event, itemHit)
  20.     DialogPtr        whichDialog;
  21.     EventRecord        *event;
  22.     short            *itemHit;
  23.     {
  24.     Boolean            filtered;
  25.     
  26.         filtered = false;
  27.         %for each item gen filter%
  28.         if (!filtered) {
  29.             filtered = StandardFilter (whichDialog, event, itemHit);
  30.         }
  31.         return (filtered);
  32.     } /*Filter%dlogname%*/
  33.     
  34. %end if%
  35. /*----------*/
  36. void Get%dlogname% (%dlogname%)
  37. %dlogname%Rec%    %*%dlogname%;
  38. {
  39.     DialogPtr    theDialog;
  40.     short        itemNr;
  41.     register %dlogname%Ptr    info;
  42.  
  43.     InitCursor ();
  44.     theDialog = GetNewDialog (%dlogname%ID, NULL, (WindowPtr) -1L);
  45.     SetPort (theDialog);
  46.     info = %dlogname%;
  47.     %for each item gen set%
  48.     ShowWindow (theDialog);
  49.     %if needsFilter%
  50.         ModalDialog (Filter%dlogname%, &itemNr);
  51.     %else%
  52.         ModalDialog (NULL, &itemNr);
  53.     %end if%
  54.     switch (itemNr) {
  55.     %for each item gen hit%
  56.     } /*case*/
  57.     %for each item gen finish%
  58.     DisposDialog (theDialog);
  59. } /*Get%dlogname%*/
  60.  
  61. /* %filename% */
  62.